home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagn_r.zip
/
NUMBERS.SWG
/
0041_Setting BITS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-02-05
|
719b
|
27 lines
{
> This would seem like something simple but can
> someone explain how to
> calculate what is included in the following
> statement once I have read
> the variable:
Looks like a user record of some BBS system or so...
Or did you want to know how to check / set the bits? }
FUNCTION GetBit (v, BitNumber: BYTE): BOOLEAN;
BEGIN
IF (v AND (1 SHL BitNumber))<>0 THEN
GetBit:=TRUE
ELSE
GetBit:=FALSE;
END; {Returns TRUE if specified bit is set }
PROCEDURE SetBit (VAR v: Byte; BitNumber: Byte; SetReset: BOOLEAN);
BEGIN
IF SetReset THEN
v:=v OR (1 SHL BitNumber)
ELSE
v:=v AND NOT (1 SHL BitNumber);
END;